home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Hyper / M-Md / MaxApplZone.sit / MaxApplZone.simple.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-06  |  1.1 KB  |  32 lines  |  [TEXT/KAHL]
  1. /* MaxApplZone.simple.c                                                 */
  2. /* ==================================================================== */    
  3. /*  very basic HyperCard memory management function                     */
  4. /*  © Copyright 1988 Sam Thornton, PO Box 123, Fairfield, NE 68938-0123 */
  5. /*  May be copied & distributed without charge only. Not for commercial */
  6. /*  sale or resale.                                                     */
  7. /*  Written in LSC 3.01 11/2/88 - some portions © by Symantec           */
  8. /* ==================================================================== */
  9.  
  10. #include "HyperXCmd.h"
  11. #include "SetUpA4.h"
  12. #include "MemoryMgr.h"
  13. #include "unix.h"    /* make sure you also include <unixst2d.c> in PROJ */
  14.  
  15. pascal void main (paramPtr) 
  16.   XCmdBlockPtr paramPtr;
  17.   {
  18.       Size    grow;
  19.       
  20.     RememberA0();
  21.     SetUpA4();
  22.     
  23.     if (paramPtr->paramCount >= 1) { /* if any param, compact memory */
  24.         MaxMem(&grow);
  25.         MaxApplZone();
  26.         }
  27.     paramPtr->returnValue = NewHandle(10);
  28.     stci_d(*paramPtr->returnValue,(TheZone->zcbFree / 1024),9);
  29.         
  30.     RestoreA4();
  31.     return;
  32.     }